#!/usr/bin/perl
use CGI::Application::Server;
use CGI::Carp;
u#se CGI::Carp qw(carpout);

#open(LOG, ">>./myerror-log") or die"Невозможно открыть лог для записи:$!" ;
#carpout(LOG);
use CGI::Carp qw(fatalsToBrowser);    # вывод информации об ошибках в браузер

use lib "./cgi-bin/";
use WebApp;

my $server = CGI::Application::Server->new(9090);

$server->document_root('./htdocs');
$server->entry_points(
	{
		'/index.cgi' => 'WebApp',
		'/static'    => './htdocs',
	}
);
$server->run();
